# 简单函数

# e.g.1
# 一个简单模板
function(name) cat("hello",name,"!")

# 进化
hello<-function(name) cat("hello",name,"!")
hello
hello("Peter")

# 完整的函数
hello<-function(name){
  name <- toupper(name) # 将name转换为大写
  cat("hello",name,"!")
}


# 参变量缺省
hello<-function(name="Peter") cat("hello",name,"!")

# 更多的变化
# 例如，针对对方使用的语种，改变我打招呼的方式
# 英语：Hello；法语：Bonjour；西班牙语：Hola
# 要求缺省为英语，人名缺省为Peter
# 针对这一要求，修改你们的函数











hello<-function(name="Peter",language="eng"){
  cat(switch(language,fr="Bonjour",sp="Hola",eng="Hello"), name, "!")
}



